0 REM--AHOY--MAR ISSUE--SPACE LANES--PROG PAGE 77 1 POKE54287,43:POKE54286,52:GOSUB500:GOTO700 2 PL=3:GOSUB100 5 POKEL,.:POKEL+CC,7 10 J=15-(PEEK(56321)AND15) 15 D=R(J) 35 L1=PEEK(L+D):IFL1=63THEND=0:GOTO10 37 IFL1=4THENPO=PO+5:GOSUB90 38 IFINT(RND(0)*10)=9THENGOSUB50 40 POKEL,32:L=L+D:POKEL,.:POKEL+CC,7:D=0:GOTO10 50 R=3+2*INT(RND(0)*10) 52 R1=((R-1)*40) 55 FORX=1025+R1TO1058+R1:POKEX,63:POKEX+CC,1:NEXTX 60 IFL>1024+R1ANDL<1059+R1THENPL=PL-1:GOSUB600 65 FORX=1025+R1TO1058+R1:POKEX,32:NEXTX:RETURN 90 POKE54296,6:POKE54296,0:IFPO>HSTHENHS=PO 92 PRINT"[158]";PO:POKE1034,63:POKE1034+CC,7 93 PRINTTAB(29)"[145][145][158]";HS:POKE1053,63:POKE1053+CC,7 94 IFPO/900=INT(PO/900)THENGOSUB400 96 RETURN 100 CC=54272:L=1521:D=0:HS=(PEEK(901)*256)+PEEK(900) 102 DIMR(10):FORX=0TO10:READA:R(X)=A:NEXTX 105 POKE53265,PEEK(53265)AND239 110 POKE53272,(PEEK(53272)AND240)OR12 120 PRINT"[145][158]????????????????????????????????????????" 130 PRINT"[145][156]????????????????????????????????????????[157][157]" 140 PRINT"? ?[159]??[158]?[156]?" 150 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 160 PRINT"[145]? ?[159]??[158]?[156]?" 170 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 180 PRINT"[145]? ?[159]??[158]?[156]?" 190 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 200 PRINT"[145]? ?[159]??[158]?[156]?" 210 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 220 PRINT"[145]? ?[159]??[158]?[156]?" 230 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 240 PRINT"[145]? ?[159]??[158]?[156]?" 250 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 260 PRINT"[145]? ?[159]??[158]?[156]?" 270 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 280 PRINT"[145]? ?[159]??[158]?[156]?" 290 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 300 PRINT"[145]? ?[159]??[158]?[156]?" 310 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 320 PRINT"[145]? ?[159]??[158]?[156]?" 330 PRINT"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?" 335 PRINT"[145]? ?[159]??[158]?[156]?" 350 PRINT"[145]??????????????????????????????????????[158]?[156]?[157][157][157]" 360 FORX=0TO39:POKE1984+X,63:POKE1984+CC+X,3:NEXTX 370 POKE2022+CC,7:POKE2023+CC,4 380 PRINT"":PRINTTAB(38)"[158]S[157]P[157]A[157]C[157]E[157]L[157]A[157]N[157]E[157]S" 390 PRINT"":PRINT"[159]BY,?ROBERT?ALONSO" 395 PRINT"[158]SCORE:":PRINT""TAB(23)"[158]HIGH:" 400 FORX=1145TO1161STEP2:FORX1=0TO720STEP80:POKEX+X1,4:POKEX+X1+CC,7:NEXTX1,X 410 FORX=1162TO1178STEP2:FORX1=0TO720STEP80:POKEX+X1,4:POKEX+X1+CC,7:NEXTX1,X 415 IFPO>0THENPO=PO+5 420 POKE53265,PEEK(53265)OR16:RETURN 500 PRINT"[147]":POKE53280,8:POKE53281,6 520 PRINT"[169] [157] [157][169][223][157][223][157] [157][157] [157][157][157][223][157] [157] [157] [157][169] " 530 PRINT"[145][223][157][157] [157] [157] [157] [157][157][157] [157][157][157][157] [157][157][157] [157] [223] [157] [157][157][157][223]" 540 PRINT"[223][223][157] [157] [157] [157] [157][157][157] [157][157][157] [157][157][157] [157] [157] [146][223] [157] [157][157][146][223][192]" 550 PRINT"[145][157][223] [157] [157][157][157] [157] [157][157][157] [157][157][157][157] [157][157][157] [157] [157] [157] [157][157][157][157][146][223] " 560 PRINT"[145] [146][157] [157][157][157] [157] [157] [146][223] [146][157] [157][157] [157] [157] [157] [157] [157] [157] " 580 RETURN 600 V=54296:FORX=54272TO54296:POKEX,0:NEXTX 605 POKE54273,30:POKE54272,25:POKE54277,15:POKE54278,40 610 POKE54276,129:FORX=9TO15STEP2:POKEV,X:FORX1=1TO45:NEXTX1,X:POKEV,0 620 POKE54273,25:FORX=15TO10STEP1:POKEV,X:FORX1=1TO50:NEXTX1,X:POKEV,0:POKEV,1 630 POKE54273,30:FORX=15TO0STEP-1:POKEV,X:FORX1=1TO40:NEXTX1,X 640 IFPL=0THEN660 650 RETURN 660 H1=INT(HS/256):H2=HS-H1*256 670 POKE900,H2:POKE901,H1 680 PRINT"[147]":POKE53272,21:END 700 IFPEEK(12288)<>24THENPOKE900,0:POKE901,0 704 FORX=0TO10:READA:NEXTX 705 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251 710 FORX=12288TO12799:POKEX,PEEK(X+41984):NEXTX 720 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1 730 FORX=0TO7:READA:POKE12288+X,A:NEXTX 740 FORX=0TO7:READA:POKE12320+X,A:NEXTX 750 FORX=0TO7:POKE12544+X,0:POKE12792+X,255:NEXTX 760 POKE52,48:POKE56,48:CLR:GOTO2 800 DATA0,-40,40,0,-1,-41,39,0,1,-39,41 810 DATA24,60,126,24,189,231,195,129 820 DATA0,0,0,24,24,0,0,0